From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 26 May 1993 18:00:55 +0000 (+0000)
Subject: (mail-strip-quoted-names): Catch errors from forward-sexp.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~95942
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=c5fb599fa1be4b9a645e86d7129f30f84d139d5e;p=emacs.git

(mail-strip-quoted-names): Catch errors from forward-sexp.
---

diff --git a/lisp/mail/mail-utils.el b/lisp/mail/mail-utils.el
index 63757511013..0d32fbe23fe 100644
--- a/lisp/mail/mail-utils.el
+++ b/lisp/mail/mail-utils.el
@@ -75,7 +75,11 @@ Return a modified address list."
 	       (forward-char -1)
 	       (skip-chars-backward " \t")
 	       (delete-region (point)
-			      (save-excursion (forward-sexp 1) (point))))
+			      (save-excursion
+				(condition-case ()
+				    (forward-sexp 1)
+				  (error (goto-char (point-max))))
+				  (point))))
 	     (setq address (buffer-string))
 	     (erase-buffer))
 	 ;; Strip non-nested comments an easier way.